home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / VDTJ122B.ZIP;1 / DEMO.VDM < prev    next >
Encoding:
Text File  |  1992-11-30  |  9.7 KB  |  387 lines
  1. R* 
  2. R*    VEDIT PLUS Demo/Tutorial Macro - Give DOS command: VDEMO -X DEMO.VDM
  3. R* 
  4. R*    Greenview Data, Inc.
  5. R*    P.O. Box 1586
  6. R*    Ann Arbor, MI, 48106
  7. R*    (313) 996-1300
  8. R* 
  9. ES 8 1            R* Suppress search errors
  10. ES 9 1            R* Use explicit text delimiters
  11. ET 8            R* Set tabs stops at every 8
  12. R* 
  13. R*    The following "trick" removes comments from this macro.
  14. R*    Register "Y" is loaded with the commands to strip comments.
  15. R*    We then "chain" to "Y", which finally chains back to "Z".
  16. R* 
  17. RI(y)"EE(z) B 2F/!START!/ 0L -#K #$S/R*|B|Y|>// EE(@) RJ(z)"
  18. RJ(y)
  19. R* 
  20. !START!
  21. (Q11 == -1) JP"MLOOP"        R* Skip setup if macro already running
  22. R* 
  23. R*    Load DEMO.VD2 into register U.
  24. R*    This macro then loads the "subroutine macros"
  25. R* 
  26. RL(U) DEMO.VD2        R* Load 2nd file
  27. EE(U)            R* Switch to edit them
  28. #$S/R*|Y|>//        R* Strip comments
  29. EE(@)            R* Switch back
  30. M(U)            R* Execute DEMO.VD2 - load "subroutines"
  31. EE(U) EQY        R* Empty and remove Buffer "U"
  32. (Q11 == -2) JP"MLOOP"    R* Skip signon if returning from compiler support
  33. R* 
  34. R*    Determine colors to use for different machines.
  35. R*    First preset for B/W display.
  36. R* 
  37. 112XS(21)        R* Q21 = header attribute (Reverse video)
  38. 112XS(22)        R* Q22 = menu-bar attribute (Reverse video)
  39. 15XS(23)        R* Q23 = user-message attribute (Intense)
  40. 7XS(24)            R* Q24 = normal
  41. 112XS(25)        R* Q25 = reverse
  42. 7XS(26)            R* Q26 = edit window attribute
  43. 7XS(27)            R* Q27 = text (directions) window attribute
  44. 7YEA            R* Normal text attribute
  45.  
  46. (.sd==3)[        R* If IBM Color
  47.  
  48. YEC YEN
  49. YT"Do you have a color display on your computer? [Y]es [N]o "
  50. [ XK(100)"" Q100&95XS(100) (Q100=="Y | Q100=="N)JL YA ] Q100YD
  51.  
  52. (Q100=="Y) [
  53. 23XS(21)        R* Q21 = header attribute (White on blue)
  54. 71XS(22)        R* Q22 = menu-bar attribute (White on red)
  55. 14XS(23)        R* Q23 = user-message attribute (Yellow)
  56. 66XS(24)        R* Q24 = green on red window
  57. 49XS(25)        R* Q25 = blue on cyan window
  58. 23XS(26)        R* Q26 = edit window attribute
  59. 2XS(27)            R* Q27 = text (directions) window attribute
  60. 2YEA            R* Normal text attribute
  61. ][
  62. YYM            R* No - change to monochrome attributes
  63. ]
  64. ]
  65.  
  66. M(S)            R* Execute signon macro
  67. RE(S)            R* Empty signon macro
  68. 0XS(12)            R* Init main-menu selection
  69. YJN 11 0        R* Turn off sub-menu preview
  70.  
  71. R* 
  72. R*    M A I N    P R O G R A M
  73. R* 
  74.  
  75. !MLOOP!            R* Main loop
  76. YJN 10 0        R* No scroll bars
  77. YWI            R* Init all windows
  78. 22085YYE        R* Make <ESC> perform [VISUAL EXIT]
  79. (.sl<>25)[ 25YEM ]    R* Switch EGA/VGA to 25 lines
  80. EE(1) EQY        R* Clear edit buffers 1, 2, 7, 8, A, B
  81. EE(2) EQY
  82. EE(7) EQY
  83. EE(8) EQY
  84. EE(A) EQY
  85. EE(B) EQY
  86. RE(P)            R* Empty registers P and T
  87. RE(T)
  88. EE(@)            R* Switch to main edit buffer
  89. EZY            R* Clear main edit buffer; also reset indentation
  90. EP 4 0            R* Disable LC to UC conversion
  91. EP 7 0            R* Disable word wrap
  92. EP 13 0            R* Disable binary mode
  93. ES 3 0            R* Disable auto-indent
  94. ES 6 0            R* Disable regular expressions
  95. ES 8 1            R* Suppress search errors
  96. ES 9 1            R* Use explicit delimiters
  97. ES 11 0            R* Disable justification
  98. PP 4 10            R* Left printer margin = 10
  99. 1YML            R* Reset left margin
  100. 0YMS            R* Reset horizontal scroll
  101. 1RPROT(H,Z)        R* Write protect registers H - Z from visual mode
  102. +RA(Z)            R* Auto-execute register Z
  103. -XS(11)            R* Flag that macro running
  104.  
  105. RI(9)/  VEDIT FAMILY DEMONSTRATION -- MAIN MENU  /
  106.  
  107. RI(8)\Introduction
  108. List Main Features
  109. Demonstrate Basic Editing Features (Tutorial)
  110. Demonstrate Program Development Features
  111. Demonstrate Word Processing Features
  112. Demonstrate Keystroke Macros
  113. Demonstrate Printing
  114. Demonstrate Windows and EGA/VGA support (VEDIT)
  115. Demonstrate Multiple File Editing       (VEDIT)
  116. Demonstrate Multiple File Processing    (VEDIT)
  117. Demonstrate Data/Binary File Editing    (VEDIT)
  118. Demonstrate Basic Command Mode Features (VEDIT PLUS)
  119. Demonstrate DOS Commands                (VEDIT PLUS)
  120. Explain Configuration Options
  121. Exit Demonstration (Ordering information)
  122. \
  123.  
  124. Q22_XS(8)        R* Set menu-bar attribute
  125. M(M)            R* Display menu - get user's option in Q12
  126. YR(t) -:XT(12) -YR    R* Convert option to ASCII in "T"
  127.  
  128. EE(8) EQY        R* Clear edit buffer 8
  129. EE(@)            R* Ensure main edit buffer
  130.  
  131. :JP"MAIN-|Rt"        R* Jump to "variable" label
  132. 0XS(12)            R* In case of error, reset main-menu selection
  133. JP"MLOOP"
  134.  
  135.  
  136. R* 
  137. !MAIN-1!        R* List introduction
  138. R*
  139. RI(9)"     VEDIT Family - Introduction     "
  140. RI(8)"DEMO1.TXT"    R* File name of text
  141. M(L)            R* Display text
  142. JP"MLOOP"
  143.  
  144.  
  145. R* 
  146. !MAIN-2!        R* List Main features
  147. R* 
  148. RI(9)"VEDIT Family - Main Features"
  149. RI(8)"demo2.txt"
  150. M(L)
  151. JP"MLOOP"
  152.  
  153.  
  154. R* 
  155. !MAIN-3!        R* Demonstrate basic editing features
  156. R* 
  157. RL(T) demo3.vdm
  158. M(T)
  159. JP"MLOOP"
  160.  
  161.  
  162. R* 
  163. !MAIN-4!        R* Demonstrate Programming features
  164. R* 
  165. RL(T) demo4.vdm
  166. M(T)
  167. JP"MLOOP"
  168.  
  169.  
  170. R* 
  171. !MAIN-5!        R* Demonstrate Word Processing features
  172. R* 
  173. RL(T) demo5.vdm
  174. M(T)
  175. JP"MLOOP"
  176.  
  177.  
  178. R* 
  179. !MAIN-6!        R* Demonstrate Keystroke Macros
  180. R* 
  181. RL(T) demo6.vdm
  182. M(T)
  183. JP"MLOOP"
  184.  
  185.  
  186. R* 
  187. !MAIN-7!        R* Demonstrate Printing
  188. R* 
  189. RL(T) demo7.vdm
  190. M(T)
  191. JP"MLOOP"
  192.  
  193.  
  194. R* 
  195. !MAIN-8!        R* Demonstrate Windows
  196. R* 
  197. RL(T) demo8.vdm
  198. M(T)
  199. JP"MLOOP"
  200.  
  201.  
  202. R* 
  203. !MAIN-9!        R* Demonstrate Multiple File Editing
  204. R* 
  205. RL(T) demo9.vdm
  206. M(T)
  207. JP"MLOOP"
  208.  
  209.  
  210. R* 
  211. !MAIN-10!        R* Demonstrate Multiple File Processing
  212. R* 
  213. RL(T) demo10.vdm
  214. M(T)
  215. JP"MLOOP"
  216.  
  217.  
  218. R* 
  219. !MAIN-11!        R* Demonstrate Data/Binary File Editing
  220. R* 
  221. RL(T) demo11.vdm
  222. M(T)
  223. JP"MLOOP"
  224.  
  225.  
  226. R* 
  227. !MAIN-12!        R* Demonstrate Command Mode
  228. R* 
  229. RI9"VEDIT PLUS - Command Mode Demo"
  230. M(H)
  231.  
  232. YT/
  233. You can perform all routine editing entirely in the easy to use Visual Mode.
  234. However, the Command Mode is even more powerful; it is a complete programming
  235. language.  You can use the commands singly or combine them into programs
  236. called "macros".  Remember that this entire demo is written as a "macro".
  237.  
  238. You may find the Command Mode a little terse at first.  However, this
  239. programming language has several advantages over more verbose ones.  First,
  240. you can create a program or "macro" at any time and use it immediately.  There
  241. is no time wasted with "compiling", yet it executes as fast as a compiled one.
  242. The language is interactive; you can easily change macros and debug complex
  243. ones.  You can try out the commands one by one.  The short commands let you do
  244. a lot with just a few keystrokes.
  245.  
  246. You don't have to be a programmer to use "macros".  We regularly receive
  247. letters from people who say that VEDIT PLUS is the first programming language
  248. they can understand and use.
  249.  
  250. /
  251.  
  252. M(K)
  253.  
  254. 5YEV 0YEH        R* Position cursor
  255. YES            R* Clear rest of screen
  256.  
  257. YT/
  258. You have to be a little careful when running this part of the demo.  Since
  259. you will really be in the Command Mode, this demo macro is no longer running
  260. and it cannot catch your errors.  (Of course there is nothing you can hurt,
  261. but it is possible to stop this demo.)
  262.  
  263.  
  264. REMEMBER:  You can enter commands in upper or lower case.  You must press
  265.        <Enter> at the end of each command line.
  266.  
  267. REMEMBER:  Give the command "MN" to continue with the next step of the demo.
  268.  
  269. REMEMBER:  If things don't seem to be working right, first press <CTRL-C>.
  270.        Then give the command "MZ" to return to the Main Menu.
  271.  
  272.  
  273. /
  274.  
  275. M(K)
  276.  
  277. YWR(1) 41        R* Setup 2 windows
  278. YWB($) 9
  279.  
  280. EE(1)
  281. B#K
  282. ER demo12.txt 0A    R* Load instruction text
  283. -V            R* Display text
  284.  
  285. EE(@)
  286. B#K            R* Empty edit buffer
  287. ER demo.txt 0A        R* Load demo text
  288. -V            R* Display text
  289.  
  290. YWS$            R* Switch to command mode window
  291. YEN
  292.  
  293. RA(0)            R* Disable auto-execution
  294. JO            R* Goto command mode
  295.  
  296.  
  297. R* 
  298. !MAIN-13!        R* Demonstrate DOS Commands
  299. R* 
  300. RI(9)"VEDIT PLUS - Demonstrate DOS Commands"
  301. M(H)
  302.  
  303. YT/
  304. You can run DOS commands and other programs from within any VEDIT Family
  305. editor using the {MISC, DOS shell} and {MISC, Run DOS program} menu functions.
  306.  
  307. This topic demonstrates the additional flexibility available in VEDIT PLUS's
  308. command mode language for interfacing with DOS.
  309.  
  310. You have to be a little careful when running this part of the demo.  Since you
  311. will really be in the Command Mode or in DOS, this demo macro is no longer
  312. running and it cannot catch your errors.
  313.  
  314. You can enter commands in upper or lower case.  You must press <Enter> at the
  315. end of each command line.
  316.  
  317.  
  318. REMEMBER:  Give the command "MN" to continue with the next step of the demo.
  319.  
  320. REMEMBER:  Give the DOS command "EXIT" to return to VEDIT and this demo.
  321.  
  322. /
  323.  
  324. M(K)
  325.  
  326. YWR(1) 41        R* Setup 2 windows
  327. YWB($) 15
  328.  
  329. EE(1)
  330. B#K
  331. ER demo13.txt 0A    R* Load instruction text
  332. -V            R* Display text
  333.  
  334. EE(@)
  335. B#K            R* Empty edit buffer
  336.  
  337. YWS$            R* Switch to command mode window
  338. YEN
  339.  
  340. RA(0)            R* Disable auto-execution
  341. JO            R* Goto command mode
  342.  
  343.  
  344. R* 
  345. !MAIN-14!        R* Explain Configuration Options
  346. R* 
  347. RI(9)"VEDIT Family - Configuration Options"
  348. RI(8)"demo14.txt"
  349. M(L)
  350. JP"MLOOP"
  351.  
  352.  
  353. R* 
  354. !MAIN-15!        R* Exit demo
  355. R* 
  356. Q27YEA YEC            R* Clear window
  357. YT\Thank you for the time you have spent with the VEDIT Family Demo/Tutorial.
  358. We welcome any comments on how we can make this demo more informative.
  359.  
  360. VEDIT PLUS, VEDIT and VEDIT Jr. are sold with a 30 day money-back guarantee.
  361. Evaluate the complete product and, if you are not satisfied, return it within
  362. 30 days for a full refund.
  363.  
  364. Our customer support includes free telephone support, a newsletter,
  365. inexpensive software updates and a 24-hour bulletin board system. You may call
  366. the BBS for the most recent version of the demo/tutorial disk and other
  367. product information.
  368.  
  369. Purchasing VEDIT PLUS directly through Greenview entitles you to automatic and
  370. free updates for 12 months (3 updates including one with new manual) and
  371. discounts on other versions of VEDIT PLUS such as for UNIX/XENIX.
  372.  
  373. For more information and    Greenview Data, Inc.
  374. to order please contact:    P.O. Box 1586
  375.                 Ann Arbor, MI  48106
  376.  
  377. Telephone: (313) 996-1300    Toll Free: (800) 45-VEDIT   (U.S. and Canada)
  378. Fax:       (313) 996-1308    BBS:       (313) 996-1304
  379.  
  380. \
  381.  
  382. Q23YEA
  383. YT/         --- PRESS ANY KEY TO EXIT THIS DEMO --- /
  384. Q27YEA
  385. XK(0)//
  386. :EQAY
  387.